home *** CD-ROM | disk | FTP | other *** search
/ Windows CE - The Ultimate Companion / ROMMAN_CE.iso / Files / Programming / Minibasic / Pocket Guess.bas < prev   
BASIC Source File  |  1997-01-10  |  5KB  |  129 lines
  1. 001 REM     I wrote this to test miniBasic.  It's not the most elegant thing I
  2. 002 REM     ever wrote, but it runs.  It's freeware and you can do anything you
  3. 003 REM     want with it.  I would appreciate it if you would send me any enhanced
  4. 004 REM     versions that you write.  Also please send me any miniBasic programs
  5. 005 REM     you write or find that run under WindowsCE.  I'm running WindowsCE on
  6. 006 REM     a Cassiopeia A-11.  My email address is    regian@alhrt.brooks.af.mil
  7. 007 REM               Live long and prosper,
  8. 008 REM                             Wes Regian
  9. 009 X = 0
  10. 010 START:
  11. 060 PRINT ""
  12. 061 PRINT ""
  13. 062 PRINT ""
  14. 063 PRINT ""
  15. 064 PRINT ""
  16. 065 PRINT "___________________________________________________________________"
  17. 066 PRINT "                                                                   "
  18. 067 PRINT "                 ÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇ                "
  19. 070 PRINT "                 Pocket Guess 1.3 For B&B MiniBasic                "
  20. 080 PRINT "                 ÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇ                "
  21. 090 PRINT "___________________________________________________________________"
  22. 091 PRINT ""
  23. 092 PRINT "Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç"
  24. 093 PRINT "Ç                                                                 Ç"
  25. 094 PRINT "Ç       Pocket Guess will select a number between zero and        Ç"
  26. 095 PRINT "Ç       any maximum value that you specify. Input a number        Ç"
  27. 096 PRINT "Ç       for the maximum value and hit Enter.                      Ç"
  28. 097 PRINT "Ç                                                                 Ç"
  29. 098 PRINT "Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç"
  30. 110 INPUT P
  31. 118 PRINT "Ç                                                                 Ç"
  32. 119 PRINT "Ç                                                                 Ç"
  33. 120 PRINT "Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç"
  34. 121 PRINT ""
  35. 122 PRINT "Your goal is to guess a number that has been                       "
  36. 123 PRINT "selected by Pocket Guess. The number                               "
  37. 124 PRINT "is an integer between                                              "
  38. 125 PRINT "0 and ....                                                         "
  39. 126 PRINT P
  40. 127 PRINT ""
  41. 128 PRINT "Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç"
  42. 151 REM Print X
  43. 152 IF (X=P-1) THEN 154
  44. 153 GOTO 162
  45. 154 P=P-1
  46. 155 PRINT ""
  47. 156 PRINT "        Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç      "
  48. 157 PRINT "        Ç  Why do you keep using the same maximum value?  Ç      "
  49. 158 PRINT "        Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç      "
  50. 162 IF (X=P) THEN 164
  51. 163 GOTO 166
  52. 164 P = (P - 1)
  53. 166 X = P
  54. 167 REM PRINT P
  55. 168 REM PRINT X
  56. 170 IF (((P / 2) + (P / 2)) <> P) THEN 172
  57. 171 IF (((P / 2) + (P / 2)) = P) THEN 177
  58. 172 REM PRINT "P IS ODD"
  59. 173 N = P / 4
  60. 174 N = (N + 1) + N
  61. 175 N = (P - N) - (P / 5)
  62. 176 GOTO 190
  63. 177 REM PRINT "P IS EVEN"
  64. 178 N = (P / 2) - 1
  65. 179 N = (P - N) + (P / 5)
  66. 190 REM GUESS
  67. 191 REM PRINT N
  68. 194 REM PRINT "Ç                                                                 Ç"
  69. 195 PRINT "Guess!"
  70. 200 INPUT G
  71. 201 IF (G > P) THEN 203
  72. 202 GOTO 205
  73. 203 PRINT "Pay attention.  That was too high."
  74. 204 GOTO 195
  75. 205 IF (G < 0) THEN 207
  76. 206 GOTO 210
  77. 207 PRINT "Pay attention.  I don't do negative numbers."
  78. 208 GOTO 195
  79. 210 IF (G > N) THEN 390
  80. 220 IF (G < N) THEN 412
  81. 240 IF (G = N) THEN 260
  82. 245 GOTO 195
  83. 250 REM CORRECT
  84. 260 REM PRINT "Good work, you got it!"
  85. 261 PRINT "      Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç      "
  86. 262 PRINT "      Ç                    YOU GOT IT!                      Ç      "
  87. 292 PRINT "      Ç   Do you want to play again?      0=No      1=Yes   Ç      "
  88. 293 PRINT "      Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç      "
  89. 310 INPUT A
  90. 320 IF A = 1 THEN GOSUB START
  91. 350 PRINT "Ç"
  92. 351 PRINT "ÇÇ"
  93. 352 PRINT "ÇÇÇÇ"
  94. 353 PRINT "ÇÇÇÇÇÇ"
  95. 354 PRINT "ÇÇÇÇÇÇÇÇ"
  96. 355 PRINT "ÇÇÇÇÇÇÇÇÇÇ"
  97. 356 PRINT "ÇÇÇÇÇÇÇÇÇÇÇÇ"
  98. 360 PRINT "See you later!"
  99. 370 PRINT ""
  100. 375 GOTO 425
  101. 380 REM HIGH
  102. 390 REM PRINT "Too HIGH!"
  103. 392 H=((P-N)/3)
  104. 393 IF G>((2*H)+N) THEN 395
  105. 394 GOTO 397 
  106. 395 PRINT "                             Too HIGH!  ---Ç---Ç---Ç          "
  107. 396 GOTO 195
  108. 397 IF G>(H+N) THEN 399
  109. 398 GOTO 401
  110. 399 PRINT "                             Too HIGH!  ---Ç---Ç              "
  111. 400 GOTO 195
  112. 401 PRINT "                             Too HIGH!  ---Ç                  "
  113. 402 GOTO 195
  114. 410 REM LOW
  115. 412 REM PRINT "Too LOW!"
  116. 414 L=N/3
  117. 415 IF G<L THEN 417
  118. 416 GOTO 419
  119. 417 PRINT "               Ç---Ç---Ç---  Too  LOW!"
  120. 418 GOTO 195
  121. 419 IF G<(2*L) THEN 421
  122. 420 GOTO 423
  123. 421 PRINT "                   Ç---Ç---  Too  LOW!"
  124. 422 GOTO 195
  125. 423 PRINT "                       Ç---  Too  LOW!"
  126. 424 GOTO 195    
  127. 425 END
  128.  
  129.